Изолированная программа вывода в режиме IM 2 с выходом в IM 1

God Mode:

24063 <-- 2 94 0 245 213 253 54 2 32 1 20 0
24075 <-- 205 60 32 209 241 251 201 22 10 8 16 1
24087 <-- HOC BMECTO XEPA
24102 <-- 22 10 8 16 2
24107 <-- XEP BMECTO HOCA
24130 <-- 62 93 237 71 17 18 94 237 94 62 254
24141 <-- 219 254 203 87 204 119 94 62 191 219 254
24152 <-- 203 103 204 123 94 62 127 219 254
24161 <-- 203 103 32 230 237 86 49 84 255
24170 <-- 237 115 61 92 241 253 54 0 255 251
24180 <-- 195 3 19 17 38 94 201 17 18 94 201


Assembler EmuZWin:

 ; Изолированная программа в режиме IM 2 с выходом в IM 1

	ORG 24063

	DEFW 24066
	DEFB 0
	PUSH AF
	PUSH DE
	LD (IY+2), 32
	LD BC, 20
	CALL 8252
	POP DE
	POP AF
	EI
	RET
TEKCT1: DEFB 22, 10, 8, 16, 1, 'HOC BMECTO XEPA'
TEKCT2: DEFB 22, 10, 8, 16, 2, 'XEP BMECTO HOCA'

      ORG 24130

	LD A, 93
	LD I, A
	LD DE, TEKCT1
	IM 2

Onpoc:	LD A, 254
	IN A, (254)
	BIT 2, A
	CALL Z, Xep
	LD A, 191
	IN A, (254)
        BIT 4, A
        CALL Z, Hoc
	LD A, 127
	IN A, (254)
        BIT 4, A
	JR NZ, Onpoc
	IM 1
	LD SP, 65364
	LD (23613), SP
	POP AF
	LD (IY+0), 255
	EI
	JP 4867
Xep:	LD DE, TEKCT2
	RET
Hoc:	LD DE, TEKCT1
	RET
